home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Utilities / Disk / CMInstall / CLIMasterII / modules / dcopy.g < prev    next >
Encoding:
Gui4CLI script  |  1998-06-24  |  1.1 KB  |  63 lines
  1. G4C
  2.  
  3. winbig -1 -1 200 69 ""
  4. winsmall 0 -1 200 69
  5. wintype 11110000
  6. winout nil:
  7. varpath "climaster/*/routine.g"
  8.  
  9. xonload
  10. set editor sys:dtp/bed/bed
  11. source = DF0:
  12. dest = DF1:
  13. failat 5
  14. guiopen dcopy.g
  15.  
  16. xonopen
  17. lvuse dcopy.g 1
  18. gosub routine.g drives
  19. lvuse dcopy.g 2
  20. gosub routine.g drives
  21. setwintitle dcopy.g "Disk Copy                   "
  22. update dcopy.g 3 "$source TO $dest"
  23.  
  24. xonclose
  25. lvuse climaster $cm_srce
  26. failat 10
  27. guiquit dcopy.g
  28.  
  29. xonrmb
  30. guiclose dcopy.g
  31.  
  32. xonfail
  33. ezreq "DiskCopy Aborted: Disk was\nchanged, or no disk in drive." Okay ""
  34. guiclose dcopy.g
  35.  
  36. xlistview 0 25 100 46 "" source "" 0 txt
  37. gadid 1
  38. gadfont topaz.font 8 000
  39. lvuse climaster $cm_srce
  40. update dcopy.g 3 "$source TO $dest"
  41.  
  42. xlistview 100 25 100 46 "" dest "" 0 txt
  43. gadid 2
  44. gadfont topaz.font 8 000
  45. lvuse climaster $cm_srce
  46. update dcopy.g 3 "$source TO $dest"
  47.  
  48. text 0 13 130 12 "" 20 box
  49. gadid 3
  50. gadtxt center
  51.  
  52. xtextin 0 0 200 13 "" nwname "" 30
  53. gadid 5
  54.  
  55. xbutton 130 13 70 12 Start
  56. setwintitle dcopy.g "Copying...                  "
  57. launch 1 'sys:system/diskcopy $source $dest name "$nwname"'
  58. xonreturn 1
  59. nwname = ""
  60. update dcopy.g 5 $nwname
  61. setwintitle dcopy.g "Disk Copy                   "
  62.  
  63.